unit MLPASelectSampleInfo;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TdlgSelectSampleInfo = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    lbAssays: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
    function SelectAssay(list: TStrings):integer;
  end;

var
  dlgSelectSampleInfo: TdlgSelectSampleInfo;

implementation

{$R *.DFM}

{ TdlgSelectSampleInfo }

function TdlgSelectSampleInfo.SelectAssay(list: TStrings): integer;
begin
  lbAssays.Items.Clear;
  lbAssays.Items.AddStrings(list);
  if Showmodal=mrOk then
    result:=lbAssays.ItemIndex
  else
    result:=-1;
end;

end.
